home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / DiceSource / lib / extra / getpred.a < prev    next >
Text File  |  1994-02-01  |  307b  |  25 lines
  1.  
  2.         ;   GETPRED.A
  3.         ;
  4.         ;   (c)Copyright 1990, Matthew Dillon, All Rights Reserved
  5.         ;
  6.  
  7.         section text,CODE
  8.  
  9.         xdef    _GetPred        ; node = GetPred(node:4(sp))
  10.         xdef    @GetPred
  11.  
  12. _GetPred:    move.l    4(sp),A0
  13. @GetPred:
  14.         move.l    4(A0),A0
  15.         tst.l    4(A0)
  16.         beq    gp0
  17.         move.l    A0,D0
  18.         rts
  19. gp0        moveq.l #0,D0
  20.         rts
  21.  
  22.         END
  23.  
  24.  
  25.